home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
gondwana.ecr.mu.oz.au/pub/
/
Graphics.tar
/
Graphics
/
ArtForTheMac.sea.hqx
/
Sample Scenes
/
lego
< prev
next >
Wrap
Text File
|
1992-09-27
|
2KB
|
90 lines
# This scene contains a few colorful lego blocks.
fieldofview 32.0
raysperpixel 4
output rlea
antialiasing adaptive
background 0,0,.12
# projection orthographic
# screensize 6.5, 6.5
#--------------------------------------------
# The point of view and lighting are derived
# from the frame number, so we can render a
# sequence that looks like a flyby.
#--------------------------------------------
myframe = frameno - 12
eyex = -9 + myframe / 4.0
eyey = 5 - myframe / 4.0
eyez = -8 + myframe
light1x = myframe / 3.0 - 10
light1y = 20.0 - myframe
lookat (eyex, eyey, eyez, 0, -1, 0, 0)
light {
colour 0.8, 1.2, 1.2
location (light1x, light1y, 30.0)
}
light {
colour 1.2, 1.2, 0.8
location (5.0, 20.0, -10.0)
}
include legoblocks
#--------------------------------------------
# Instances of lego blocks.
#--------------------------------------------
doubleton {
colour 1.2, 0.1, 0.1
}
singleton {
colour 0.1, 0.15, 1.2
translate (1,1,0)
}
singleton {
color 0.9, 0.9, 0.2
rotate(90,z)
rotate(70,y)
translate (-2.5, -2.0, 0.0)
}
square {
colour 1.2, 1.2, 1.2
translate (0, -1, -1)
}
eight {
translate (-1, -2, 0)
rotate (90, y)
color 0.0, 0.1, 1.0
}
long {
translate (-2.4, -2, 2.6)
color 1.2, 0.1, 0.1
}
doubleton {
translate (3, -2, 3)
rotate (45, y)
color 0.9, 0.9, 0.2
}
#
# A little green mat for them to sit on.
#
box {
colour 0.05, 0.3, 0.1
material 0, 0.9, 0.1, 2
texture fuzzy scalefactor 0.4
vertex (6, -2.494, 6)
vertex (-5, -3.1, -5)
rotate (30, y)
}